Presented by Sahar Alhassan, Kaitlyn Lynes,
Deepa Mehta, & Ilya Perepelitsa
December 14, 2015
Presented by Sahar Alhassan, Kaitlyn Lynes,
Deepa Mehta, & Ilya Perepelitsa
December 14, 2015
load("NSF.RData")
library(ggplot2)
newdata <- schoolsall[which(schoolsall$starting_date < '2015-01-01' & schoolsall$starting_date > '2014-01-01'), ]
newdata1 <- schoolsall[which(schoolsall$starting_date < '2015-01-01' & schoolsall$starting_date > '2013-01-01'), ]
newdata2 <- schoolsall[which(schoolsall$starting_date < '2015-01-01' & schoolsall$starting_date > '2012-01-01'), ]
newdata3 <- schoolsall[which(schoolsall$starting_date < '2015-01-01' & schoolsall$starting_date > '2008-01-01'), ]
newdata4 <- schoolsall[which(schoolsall$starting_date < '2015-01-01' & schoolsall$starting_date > '1999-01-01'), ]
newdata5 <- schoolsall[which(schoolsall$starting_date < '2015-01-01' & schoolsall$starting_date > '1999-01-01'), ]
## 10. NSF Grant Dollar Allocation by Month as a Function of Research Duration * Are projects with a longer duration allocated larger grants?